home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pov / povlisti.ngs / spools.pov < prev    next >
Encoding:
Text File  |  1992-06-08  |  2.4 KB  |  79 lines
  1. #include "include.inc"
  2. #declare Ellipsoid = quadric { Sphere }
  3.  
  4.  
  5. #declare Light_Wood = texture {
  6.     wood
  7.     turbulence 0.04
  8.     octaves 3
  9.     scale <0.02 0.02 1>
  10.     colour_map {
  11.         [0.0 0.8  colour red 0.93 green 0.71 blue 0.532
  12.                   colour red 0.98 green 0.81 blue 0.6]
  13.         [0.8 1.01 colour red 0.8 green 0.533 blue 0.466
  14.                   colour red 0.85 green 0.75 blue 0.35]
  15.     }
  16.     rotate <90 0 0>            // rotate for a vertical cylinder
  17.     translate <-0.25 0 -0.25>  // since no wood is perfect
  18.     rotate <1.5 0 0.75>        // ditto
  19. }
  20.  
  21. camera {
  22.    location <0.0  0  -5.25>
  23.    direction <0.0 0.0  1.0>
  24.    up  <0.0  1.0  0.0>
  25.    right <1.33333 0.0 0.0>
  26.    look_at <0 0 0>
  27. }
  28. #declare Amb = 0.25
  29. object { light_source  { <10 10 -20>  color White  } }
  30. object { light_source  { <-20 15 -10>  color red Amb green Amb blue Amb  } }
  31. default { texture { ambient Amb } }
  32.  
  33. #declare Spool = object {
  34.     union {
  35.         quadric { Ellipsoid scale <1 0.2 1> translate <0 1 0>  texture { Light_Wood  } }
  36.         intersection { Y_Disk scale <0.75 1 0.75> }
  37.         quadric { Ellipsoid scale <1 0.2 1> translate <0 -1 0> texture { Light_Wood  } }
  38.     }
  39. }
  40.  
  41.  
  42. #declare YellowThread = texture {
  43.     gradient <0 1 0>
  44.     color_map {
  45.         [0.0  0.5  color Yellow color red 0.2 green 0.2]
  46.         [0.5  1.0 color red 0.15 green 0.15 color Yellow  ]
  47.     }
  48.     scale <1 0.025 1>
  49. }
  50.  
  51. #declare GreenThread = texture {
  52.     gradient <0 1 0>
  53.     color_map {
  54.         [0.0  0.5 color HuntersGreen color green 0.25]
  55.         [0.5  1.0 color green 0.2 color HuntersGreen  ]
  56.     }
  57.     scale <1 0.025 1>
  58. }
  59. #declare BlueVioletThread = texture {
  60.     gradient <0 1 0>
  61.     color_map {
  62.         [0.0  0.5 color BlueViolet color red 0.2 green 0.1 blue 0.2]
  63.         [0.5  1.0 color  red 0.15 green 0.075 blue 0.15 color BlueViolet  ]
  64.     }
  65.     scale <1 0.025 1>
  66. }
  67. #declare RedThread = texture {
  68.     gradient <0 1 0>
  69.     color_map {
  70.         [0.0  0.5 color Scarlet color red 0.5]
  71.         [0.5  1.0 color red 0.25 color Scarlet  ]
  72.     }
  73.     scale <1 0.025 1>
  74. }
  75. object { Spool texture { YellowThread } }
  76. object { Spool texture { GreenThread } translate <-1.75 0  0> }
  77. object { Spool texture { BlueVioletThread }  translate <-1.5 2.2 0> }
  78. object { Spool texture { RedThread scale <0.5 1 0.5> } rotate <0 0 90> rotate <0 30 0> translate <1.25 0 -3.25> }
  79.